<%@codepage="65001"%>
<%session.codepage="65001"%>
<!-- #include virtual=/inc/dbConn.asp -->
<!-- #include virtual=/inc/function.asp -->

<%
	'## 파라미터 변수 선언부
	fullLotNo	= Request("fullLotNo")
	lotSubNo	= Request("lotSubNo")
	types		= Request("type")
	rank		= Request("rank")
	visual		= Request("visual")
	memo	= Request("memo")
	flag		= Request("flag")
	priority	= Request("priority")
	result1		= Request("result1")
	result2		= Request("result2")
	result3		= Request("result3")
	result4		= Request("result4")
	result5		= Request("result5")
	result6		= Request("result6")
	result7		= Request("result7")
	result8		= Request("result8")
	result9		= Request("result9")
	result10	= Request("result10")
	result11	= Request("result11")
	result12	= Request("result12")
	result13	= Request("result13")
	result14	= Request("result14")
	result15	= Request("result15")
	result16	= Request("result16")
	result17	= Request("result17")
	result18	= Request("result18")
	result19	= Request("result19")
	result20	= Request("result20")

	If lotSubNo = "" Then lotSubNo = 0 End If 
	If rank = "" Then rank = 0 End If 
	If rank = "" Then rank = 0 End If 
	If priority = "" Then priority = 0 End If
	If result1 = "" Then result1 = 0 End If
	If result2 = "" Then result2 = 0 End If
	If result3 = "" Then result3 = 0 End If
	If result4 = "" Then result4 = 0 End If
	If result5 = "" Then result5 = 0 End If
	If result6 = "" Then result6 = 0 End If
	If result7 = "" Then result7 = 0 End If
	If result8 = "" Then result8 = 0 End If
	If result9 = "" Then result9 = 0 End If
	If result10 = "" Then result10 = 0 End If
	If result11 = "" Then result11 = 0 End If
	If result12 = "" Then result12 = 0 End If
	If result13 = "" Then result13 = 0 End If
	If result14 = "" Then result14 = 0 End If
	If result15 = "" Then result15 = 0 End If
	If result16 = "" Then result16 = 0 End If
	If result17 = "" Then result17 = 0 End If
	If result18 = "" Then result18 = 0 End If
	If result19 = "" Then result19 = 0 End If
	If result20 = "" Then result20 = 0 End If

	SQLTitle = "-- ■■■■ 측정 결과 정보 관리 저장 ■■■■"
	SQL = "exec spSaveCheckingResult '" & fullLotNo & "', " & lotSubNo & ", " & rank & ", '" & types & "', " & priority & ", '" & visual & "' " & _
		  ", " & result1 & ", " & result2 & ", " & result3 & ", " & result4 & ", " & result5 & ", " & result6 & ", " & result7 & ", " & result8 & ", " & result9 & ", " & result10 & _
		  ", " & result11 & ", " & result12 & ", " & result13 & ", " & result14 & ", " & result15 & ", " & result16 & ", " & result17 & ", " & result18 & ", " & result19 & ", " & result20 & _
		  ", '" & memo & "', '" & flag & "'"

	If xMode="debug" Then 
		Call showDebug(SQLTitle,SQL) 
	End If 

'Response.write SQL
'Response.end
	DbCon.Execute SQL

	Call rsWithXML("Save OK!")
%>